unit test.codemyth.utils;

interface

uses
  Types,Windows, SysUtils, Classes, Variants,TestFramework, TestExtensions,codemyth.utils;

type
  TTestUtils = class(TTestCase)
  published
    procedure TestVarArray2TStringDynArray;
    procedure TestRandomInteger;
  end;

implementation

{ TTest }

procedure TTestUtils.TestRandomInteger;
var
  i:Integer;
  testData:TIntegerDynArray;
begin
  SetLength(testData,100);
  for i := 0 to 100-1 do
    testData[i] := RandomInteger;
end;

procedure TTestUtils.TestVarArray2TStringDynArray;
var
    a:Variant;
begin
//    a := VarArrayOf(['1','2','3']);
//    Check(Length(VarArray2TStringDynArray(a))=3);
//    Check(VarArray2TStringDynArray(a)[2] = '3');

end;

initialization
  TestFramework.RegisterTest(TTestUtils.Suite);

end.

